home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Business Assistant
/
Business Assistant.iso
/
acctg
/
db3plsar
/
fstate.prg
< prev
next >
Wrap
Text File
|
1986-08-04
|
3KB
|
126 lines
****************************** (FSTATE.PRG)
REST FROM MADD1
REST FROM MADD2
REST FROM MPHONE
CLEAR
SET HEADING OFF
STORE 0.00 TO CNET
STORE 0.00 TO INET
SET EXACT ON
SET TALK OFF
DO WHILE .T.
USE CUST INDEX ACCT
CLEAR
@ 3,25 SAY 'Want to run one statement? '
?
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
STORE 0.00 TO MNET
@ 2,0 CLEAR
ACCEPT ' Which account? ' TO X
FIND &X
STORE NET TO CNET
USE INV
COUNT FOR ACCT=X TO MCT
GO TOP
SUM NET FOR ACCT=X TO INET
IF MCT=0
? CHR(7)
?
?
?
?
?
? 'NO INVOICES IN FILE FOR THIS ì
ACCOUNT******************************************'
?
?
?
?
LOOP
ENDIF
IF STR(CNET,9,2)<>STR(INET,9,2)
? CHR(7)
?
?
? 'YOU NEED TO UPDATE THIS CUSTOMER BEFORE PRINTING A STATEMENT'
?
?
WAIT
LOOP
ENDIF
USE CUST INDEX ACCT
FIND &X
STORE 0 TO A,B,C,D
STORE LEN(MTITLE) TO A
STORE (80-A)/2 TO A
STORE LEN(MADD1) TO B
STORE (80-B)/2 TO B
STORE LEN(MADD2) TO C
STORE (80-C)/2 TO C
STORE LEN(MPHONE) TO D
STORE (80-D)/2 TO D
SET DEVICE TO PRINT
SET PRINT ON
CLEAR
@ 1,35 SAY 'STATEMENT'
@ 2,A SAY MTITLE
@ 3,B SAY MADD1
@ 4,C SAY MADD2
@ 5,D SAY MPHONE
@ 6,36 SAY DATE()
@ 7,0 SAY ì
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
-=-=-=-=-=-=-=-'
@ 8,0 SAY NAME
@ 8,51 SAY 'Amt last payment:'
@ 8,71 SAY LSTPAY
@ 9,0 SAY ADDRESS
@ 9,51 SAY 'Date last payment:'
@ 9,72 SAY NEWDATE
@ 10,0 SAY TRIM(CITY) +' '+ STATE +' '+ ZIP
@ 10,51 SAY 'Check number:'
@ 10,65 SAY CHKNO
@ 11,0 SAY PHONE
@ 11,51 SAY 'Unapplied Credits:'
@ 11,68 SAY UCREDIT
@ 12,0 SAY 'Account number:'
@ 12,17 SAY ACCT
@ 12,51 SAY 'Terms:'
@ 12,59 SAY TERMS
@ 13,0 SAY ì
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
-=-=-=-=-=-=-=-'
@ 14,0 SAY 'Balance'
@ 14,7 SAY STR(NET,8,2)
IF OLD_30 < 0.01
@ 14,20 SAY 'Thank you for your prompt payment'
ENDIF
IF OLD_30 > 0.00
@ 14,17 SAY '>>>>>>>> Amount over 30 days past due:'
@ 14,54 SAY STR(OLD_30,8,2)
ENDIF
IF OLD_45 > 0.00
@ 14,65 SAY 'Over 45:'
@ 14,72 SAY STR(OLD_45,8,2)
ENDIF
IF OLD_60 > 0.00
@ 15,0 SAY '>>>>>>>>>>>>>>>>>>>>>>>>> Amount over 60 days past ì
due:'
@ 15,54 SAY STR(OLD_60,8,2)
ENDIF
@ 16,0 SAY ì
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
-=-=-=-=-=-=-=-'
USE INV
REPO FORM STMT FOR ACCT=X .AND. .NOT. PAID NOEJECT TO PRINT
SET DEVICE TO SCREEN
EJECT
SET PRINT OFF
ENDDO
RETURN